Fix again.

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 127efad288a95eb4306c6d8832be008390a37752..78aed798e1b79a39739b6655f865a8aa499ff76e 100644 (file)
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -264,6 +264,12 @@ See `run-hooks'."
   :type 'hook
   :group 'scheme)
 
+;; This is shared by cmuscheme and xscheme.
+(defcustom scheme-program-name "scheme"
+  "*Program invoked by the `run-scheme' command."
+  :type 'string
+  :group 'scheme)
+
 (defvar dsssl-imenu-generic-expression
   ;; Perhaps this should also look for the style-sheet DTD tags.  I'm
   ;; not sure it's the best way to organize it; perhaps one type